home *** CD-ROM | disk | FTP | other *** search
/ Publisher Platinum / Publisher Platinum.iso / clipart / utils / show38a / examples.exe / MATHWIZZ.SHW < prev    next >
Encoding:
Text File  |  1993-02-01  |  2.3 KB  |  141 lines
  1. ;*********************************************************************;
  2. ; Sciptname..:  MathWizz.SHW                                          ;
  3. ; Date.......:  1st. Feb. 1993, by RMP DATA.                          ;
  4. ; Purpose....:  Promotion for DATASHOW, as an example script.         ;
  5. ;*********************************************************************;
  6.  
  7. ; Create all variables
  8. VARIABLE CREATE var1 TYPE NUMBER 0
  9. VARIABLE CREATE var2 TYPE NUMBER 0
  10. VARIABLE CREATE result TYPE NUMBER 0
  11. VARIABLE CREATE input TYPE NUMBER 0
  12. VARIABLE CREATE inkey TYPE KEY
  13.  
  14. SHOW SCREEN "mathwiz1.scr" TXT
  15. WAIT 3
  16.  
  17. ; Starting point for addition puzzles
  18. MARK 10
  19.  
  20. SHOW SCREEN "mathwiz2.scr" TXT
  21.  
  22. math var1 = random(100)
  23. math var2 = random(100)
  24. math result = var1 + var2
  25.  
  26. goxy 30 10
  27. write var1
  28.  
  29. goxy 30 11
  30. write "+"
  31.  
  32. goxy 30 12
  33. write var2
  34.  
  35. goxy 30 13
  36. write "--------"
  37.  
  38. goxy 30 15
  39. write "--------"
  40.  
  41. goxy 30 14
  42. READ STRING input 4
  43.  
  44. IF input EQ result DO JUMPMARK 11
  45.  
  46. goxy 30 17
  47. write "Wrong result..."
  48.  
  49. goxy 30 19
  50. write "The result was:"
  51.  
  52. goxy 56 19
  53. write result
  54.  
  55. JUMPMARK 12
  56.  
  57. MARK 11
  58.  
  59. goxy 30 17
  60. write "CONGRATULATION!!!"
  61.  
  62. MARK 12
  63.  
  64. goxy 4 25
  65. write "Q = Quit, PgDn = New Operator, Any other key = Continue this puzzle"
  66.  
  67. READ KEY inkey
  68.  
  69. CASE KEY inkey 81 DO JUMPMARK 100    ; 'q'
  70. CASE KEY inkey 113 DO JUMPMARK 100   ; 'Q'
  71. CASE KEY inkey 481 DO JUMPMARK 20    ; 'PgDn'
  72.  
  73. ; Jump back to starting point
  74. JUMPMARK 10
  75.  
  76. ; Starting point for multiplication puzzles
  77. MARK 20
  78.  
  79. SHOW SCREEN "mathwiz2.scr" TXT
  80.  
  81. math var1 = random(100)
  82. math var2 = random(100)
  83. math result = var1 * var2
  84.  
  85. goxy 30 10
  86. write var1
  87.  
  88. goxy 30 11
  89. write "*"
  90.  
  91. goxy 30 12
  92. write var2
  93.  
  94. goxy 30 13
  95. write "--------"
  96.  
  97. goxy 30 15
  98. write "--------"
  99.  
  100. goxy 30 14
  101. READ STRING input 4
  102.  
  103. IF input EQ result DO JUMPMARK 21
  104.  
  105. goxy 30 17
  106. write "Wrong result..."
  107.  
  108. goxy 30 19
  109. write "The result was:"
  110.  
  111. goxy 56 19
  112. write result
  113.  
  114. JUMPMARK 22
  115.  
  116. MARK 21
  117.  
  118. goxy 30 17
  119. write "CONGRATULATION!!!"
  120.  
  121. MARK 22
  122.  
  123. goxy 4 25
  124. write "Q = Quit, Any other key = Continue this puzzle"
  125.  
  126. READ KEY inkey
  127.  
  128. CASE KEY inkey 81 DO JUMPMARK 100    ; 'q'
  129. CASE KEY inkey 113 DO JUMPMARK 100   ; 'Q'
  130.  
  131. JUMPMARK 20
  132.  
  133. ; End the script
  134. MARK 100
  135.  
  136. COLOR BACKGROUND 0
  137. SCREEN CLEAR
  138. WRITE "THANK YOU FOR USING MATHWIZARD..."
  139. WAIT 2
  140. QUIT
  141.